home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / text / misc / 2b_Ort.lha / Ort / ARexx / SprBlok.atxt < prev    next >
Text File  |  1999-02-10  |  2KB  |  79 lines
  1. /*
  2. $ver: SprBlok.atxt 1.2 (03.11.98) BLABLA PRODUCT
  3. (c) 1998 Siumot/BlaBla
  4.  
  5. Ten skrypt jest przeznaczony dla programu AmiTekst. Powoduje on korektë
  6. programem Ort zaznaczonego bloku tekstowego. Podczas korygowania, sprawdzany
  7. dokument w programie AmiTekst jest zablokowany. Skrypt najlepiej podîoûyê
  8. pod klawisz funkcyjny w programie AmiTekst.
  9.  
  10. UWAGA!!! Jeôli nie zainstalowaîeô tego skryptu instalatorem Orta, musisz
  11.          dopisaê nastëpujâcâ linië:
  12.          ORTFILENAME=ôcieûka dostëpu/ort
  13.      Zamiast "ôcieûka dostëpu" naleûy oczywiôcie wpisaê ôcieûkë dostëpu
  14.          do programu Ort (np. ORTFILENAME=dh2:tekst/ort/ort).
  15. */
  16.  
  17. OPTIONS RESULTS
  18. options failat 30
  19.  
  20. IF ~SHOW('P', 'AmiTekst_port') THEN EXIT 1
  21. ADDRESS "AmiTekst_port"
  22.  
  23. IF ~SHOW('P', '2b_Ort_rexx') THEN DO
  24.    IF ORTFILENAME='ORTFILENAME' THEN DO
  25.      OKAY1 'Program Ort nie jest uruchomiony.'
  26.      EXIT
  27.    END
  28.    ARexxInfo 'Uruchamiam program Ort'
  29.    ADDRESS COMMAND 'Run >NIL: "'ORTFILENAME'"'
  30.    ADDRESS COMMAND 'WaitForPort 2b_Ort_rexx'
  31. END
  32.  
  33. FreezeWindow
  34. Status NumWin
  35. okno=result
  36. ArexxWindow okno
  37. ARexxInfo 'Korygujë blok Ortem'
  38. Status ClipUnit
  39. atxtclip=result
  40. ClipUnit 254
  41. CutBlock
  42. IF rc=10 THEN DO
  43.   Inform '"Nie zaznaczyîeô bloku do korekty."'
  44.   ArexxWindow 0
  45.   ARexxInfo ' '
  46.   ClipUnit atxtclip
  47.   UnfreezeWindow
  48.   EXIT
  49. END
  50.  
  51. ADDRESS '2b_Ort_rexx'
  52.  
  53. Info Hide
  54. ortsleep=RESULT
  55. IF ortsleep=1 THEN Show
  56.  
  57. PREFS CLIPBOARD
  58. ortclip=result
  59. PREFS CLIPBOARD 254
  60.  
  61. ORT TO FRONT
  62.  
  63. LOAD FROM CLIP
  64. IF RC=0 THEN DO
  65.    CORRECTION
  66.    IF ~(rc=5) THEN SAVE TO CLIP
  67. END
  68. PREFS CLIPBOARD ortclip
  69. IF ortsleep=1 THEN Hide
  70. ADDRESS "AmiTekst_port"
  71. PasteBlock
  72. AmiTekstToFront
  73. ActivateWindow okno
  74. ArexxWindow 0
  75. ARexxInfo ' '
  76. ClipUnit atxtclip
  77. UnfreezeWindow
  78. EXIT 0
  79.